home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 16
/
AMIGAplus Sonderheft 16 (1998)(ICP)(DE)[!].iso
/
pd
/
anwendungen
/
amicad
/
arexx_english
/
unzoom.amicad
< prev
next >
Wrap
Text File
|
1998-03-06
|
536b
|
23 lines
/* © R.Florac, 3 Mars 1998, version 1.1e */
options results
signal on error /* error handling */
signal on syntax
'IF(SCREENMODE==0,MESSAGE("Call Zoom first"):0,-1)'
if result=-1 then do
'SCREEN(SCREENMODE,SCREENWIDTH,SCREENHEIGHT,FONT,FONT_SIZE)'
'WINDOW(X_LEFT,Y_TOP,WINDOW_WIDTH,WINDOW_HEIGHT)'
end
exit
syntax:
erreur=RC
'MESSAGE("Script UnZoom.AmiCAD"+CHR(10)+"Syntax error"+CHR(10)+"in line 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
exit
error:
'MESSAGE("Script UnZoom.AmiCAD"+CHR(10)+"Error in line 'SIGL'")'
exit